D3 VIS

## {r vectors-to-json, echo=TRUE, results="asis"}

npscampr <- read_json("data/npscampr.json")

cat(
  paste(
  '<script>
    var data = ',npscampr,';
  </script>'
  , sep="")
)